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bese -1984 00:50:35 VAX-11 Bliss-32 V4.0-742 Pa 1) 
12-808 - 1 3be 90:30:33 DISKSVMSMASTER:CF11A.SRCICHKSUM.B32; 1 ” (1) | 
MODULE CHKSUM ( | 
ANGUAGE , (BL 18832), | 

DENT = ‘v04-00 

= 
BEGIN 


' | 
SORE RR AREER EA AAAEAAAAAREAAAAAAEEAEERERERE TAA EREKAEEAHAEAeEReeeeeeeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY ACCORDANCE WITH THE TERMS OF SUCH att ae THE 


; NC ON OF C 0 0 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
rs opokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ee 
8 i FACILITY: FI1ACP Structure Level 1 
bos ABSTRACT: 
it This routine computes and checks a file header checksum. 
st ! ENVIRONMENT: 
004 STARLET operating system, including privileged system services 
4 604 and internal exec routines. 


! 
er 
' | 
8048 i 
9044 ine 
045 1} 
0046 1 | 
0047 i AUTHOR: Andrew C. Goldstein, CREATION DATE: 22-Nov-1977 22:25 | 
049 i MODIFIED BY: | 
051 1} A0100 ACG0001 Andrew C. Goldstein, 10-Oct-1978 20:01 | 
O26 Previous revision history moved to F11A.REV 
054 1 jee 
055 
B28 | 
05 LIBRARY "SYSS$LIBRARY:LIB.L32'; | 


ee . = 7 7 eo 
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0058 1 REQUIRE *SRCS:FCPDEF.B32'; 
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1Soseo-t9ge 19:39:33 DISKSUMGMASTERSEFTIAcSREICHKSUM.B32;1°%" (23. 

GLOBAL ROUTINE CHECKSUM (HEADER) = | 

pee 
FUNCTIONAL DESCRIPTION: 

This routine computes, checks, and stores the checksum of a file header. 


CALLING SEQUENCE: 
CHECKSUM (ARG1) 


INPUT PARAMETERS: 
ARG1: address of file header buffer 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


| 
i | 
| 
' 
i 
i 
i 
i 
| | 
} 
i 
i 
i 
i 
i 
i 
i 
' ROUTINE VALUE: | 
4 f checksum was correct 
0 if checksum was wrong | 
i SIDE EFFECTS: 
Correct checksum stored in header 
le 
| 
| 


BEGIN 


HEADER : REF VECTOR C,WORD); 


LOCAL 
: REF VECTOR C,WORD], ! pointer to scan header 

SUM : WORD, ' checksum value 
MATCH; ! success flag 


! We simply sum the first 255 words of the file header. Then we compare the 
checksum in the header with the one computed, and store the new one. 


SUM = 0; 

P = .HEADER: 

DECR 1 FROM 255 TO 1 
BEGIN 
SUM = .SUM + .P[O); 
P= .P + 2; 
END; 


MATCH = .SUM EQL .PCO); 


F 3 
4 VAX=11 Bliss-32 V4.0-742 4 4 C 
12: 338° 1382 99: 39: 3} DISKSVMSMASTER:CF1IA<SRCICHKSUM. B32;1 oe? 23 ve 
; 17 PCO) = .SUM; | 
; 11 RETURN MATCH; 
3 H 4 5 
: 121 END; ! end of routine CHECKSUM 
i 
.TITLE CHKSUM 
SIDENT \V04-000\ 


-PSECT S$CODES,NOWRT,2 


0004 00000 .ENTRY CHECKSUM, Save R2 : 0373 
52 B4 00002 CLRW = SUM + 0420 
51 04 AC DO 00004 MOVL HEADER P + 0421 
39 FF 8F 9A 00008 MOV ZBL + 0422 
6 1 A0 0000C 1$: ADDWe2 (P) SUM + 0425 
FA 0 F5 0000F SOBGTR 1$ + 0422 
309 D4 00012 CLRL 6 + 0429 
61 52 B1 00014 CMPW 32s SUM, (P) : 
92 12 00017 BNEQ 2$ ; 
50 D6 00019 INCL RO ; 
61 52 BO 0001B 2$: MOVW SUM, (P) : 
04 OOO1E RET : 


; Routine Size: 31 bytes, Routine Base: S$ CODES + 0000 


3 3 ¢ 0435 1 
3s ¥ 04 $ 1 END 
; 126 04 0 ELUDOM 


PSECT SUMMARY 
Bytes Attributes 
SCODES 31 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


; 


Library Statistics | 


See re ere eee Symbols -------- Pages Processing 
: File Total idaded Percent Mapped Time 
; _$255$0UA28: CSYSLIBILIB.L32;1 18619 1 0 1000 00:01.9 


Ww 1o738b-1982 99:38:33 PIKE UmRMASTERSCE TIA. ORE ICHKSUM.B32:1°%° (25 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=L1S$:CHKSUM/OBJ=0BJ$:CHKSUM MSRCS$: CHKSUM/UPDATE=(ENH$: CHKSUM) 


: Size: 31 code + 0 data bytes 
3; Run tine: 05.1 

:F ELepsed Time 19.2 

; 1 $i 


nes/CPU Min: 
4 pee Be 
; penety 9 Used: 62 pages 
; Compilation Complete 
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